PROGRAM concentrazione
IMPLICIT NONE
  INTEGER i,j,riga,riga_camini,ios,itmax
  REAL a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,min,max
  real,dimension(:,:),allocatable::matrice
  OPEN(unit=0,file="tabella.txt")
  riga=0
  riga_camini=0
  min=0
  max=0
  allocate(matrice(30000,11))
  do
    READ(0,*,iostat=ios)a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11
    if(ios/=0)then
      exit
    endif
    riga=riga+1
    matrice(riga,1)=a1
    matrice(riga,2)=a2
    matrice(riga,3)=a3
    matrice(riga,4)=a4
    matrice(riga,5)=a5
    matrice(riga,6)=a6
    matrice(riga,7)=a7
    if(a7>max)then
      max=a7
    endif
    if(a7<min)then
      min=a7
    end if
    matrice(riga,8)=a8
    matrice(riga,9)=a9
    matrice(riga,10)=a10
    matrice(riga,11)=a11
  enddo

itmax=riga
write(*,*)a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11
deallocate(matrice)
STOP
END

Subroutine Classe_Stabilita(a5,a7,a8,classe1,classe2,classe3,classe4,classe5,classe6)
  real a5,a7,a8,classe1,classe2,classe3,classe4,classe5,classe6
   if ((a8<2).and.(a7>=0).and.(a7<=399.3))then
     write(*,*)classe2
   end if
end SubRoutine Classe_Stabilita
	















		
